home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / util / misc / addressbook.lha / Address HD Install < prev   
Encoding:
Text File  |  1994-03-07  |  1.4 KB  |  70 lines
  1. (set vernum (getversion "intuition.library" (resident)))
  2. (set ver (/ vernum 65536))
  3.  
  4. (set Curr_Path (pathonly @icon))
  5. (set S_Directory "s")
  6. (set Util_Directory "Utilities")
  7. (set Libs_Directory "Libs")
  8. (set Test_Guide (cat Util_Directory "/AmigaGuide"))
  9. (set Test_Lib (cat Libs_Directory "/AmigaGuide.Library"))
  10.  
  11. (if (<= ver 37)
  12.     (abort "This Program Requires V37\n(Workbench 2.04)\nTo Run")
  13. )
  14.  
  15. (welcome "Welcome to the Address Book V1.4 Installer.")
  16.  
  17. (user 2)
  18.  
  19. (set Address_Dest (askdir 
  20.     (prompt "Where You Would Like Address Book Installed?")
  21.     (help "Select Or Create A Directory To Place\n The Address Book Program In")
  22.     (default "SYS:Utilities")
  23. ))
  24.  
  25. (set @default-dest Address_Dest)
  26.  
  27. (copyfiles
  28.     (prompt "Copy Address Book")
  29.     (choices "Address Book" "Address Book.Guide")
  30.     (source Curr_Path)
  31.     (dest Address_Dest)
  32.     (files)
  33.     (infos)
  34. )
  35.  
  36. (if (= (exists "SYS:S/Address.Dat") 0)
  37.     (
  38.     (copyfiles
  39.         (prompt "Copy Address Book")
  40.         (choices "Address.Dat")    
  41.         (source S_Directory)
  42.         (dest "SYS:S")
  43.     )
  44.     )
  45. )
  46.  
  47.  
  48. (if (= (exists "SYS:Utilities/AmigaGuide") 0)
  49.     (
  50.     (copyfiles
  51.         (prompt "Copy Commodore Amiga Guide")
  52.         (choices "AmigaGuide")
  53.         (source Util_Directory)
  54.         (dest "SYS:Utilities")
  55.     )
  56.     )
  57. )
  58.  
  59. (if (= (exists "SYS:Libs/AmigaGuide.Library") 0)
  60.     (
  61.     (copyfiles
  62.         (prompt "Copy Commodore Amiga Guide")
  63.         (choices "AmigaGuide.Library")
  64.         (source Libs_Directory)
  65.         (dest "SYS:Libs")
  66.     )
  67.     )
  68. )
  69. (exit)
  70.